(define main
  (letrec ((factorial (lambda (n)
			(if (= 0 n)
			    1
			    (* n (factorial (- n 1)))))))
    (print (factorial 5))))
